(dns-write): Use set-buffer-multibyte.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff7f79ca0e5787740ff125fbbffb47766385bcb8..16c8cb6bc57abe7ccf747a80bc8c104d967f1de8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-28  Magnus Henoch  <mange@freemail.hu>
+
+       * net/dns.el (dns-write): Use set-buffer-multibyte.
+
 2008-03-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * vc-bzr.el (vc-bzr-sha1): New fun.

diff --git a/lisp/net/dns.el b/lisp/net/dns.el
index 9e32d1fc353da02b8034b2bdbc4c8283def84d98..cb859f9f5ca1df2df6e54f01a1f7cdc8753f617e 100644 (file)
--- a/lisp/net/dns.el
+++ b/lisp/net/dns.el
@@ -137,6 +137,7 @@ If nil, /etc/resolv.conf will be consulted.")
   "Write a DNS packet according to SPEC.
 If TCP-P, the first two bytes of the package with be the length field."
   (with-temp-buffer
+    (set-buffer-multibyte nil)
     (dns-write-bytes (dns-get 'id spec) 2)
     (dns-write-bytes
      (logior